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Abstract: 

This  is  the  .third  report  of  a  series  exploring  the  use  of  the  Q  programming  notation  to  prototype  a  pro- 
gramming environment.  This  environment  includes  an  interpreter,  unparser,  syntax  directed  editor, 
command  interpreter,  debugger  and  code  generator,  and  supports  programming  in  a  small  applicative 
language.  The  present  report  extends  the  interpreter,  unparser,  syntax  directed  editor,  command  inter- 
preter and  debugger  to  accommodate  comments  (which  are  used  both  statically  and  dynamically)  and 
conditional  expressions.    A  running  implementation  of  these  ideas  is  listed  in  the  appendices. 


1.    Introduction 

Our  goal  in  this  series  of  reports*  MacLennan85b,  MacLennan85c;  is  to  explore  in  the  context  of  a 
very  simple  language  the  use  of  the  ft  programming  notation  ;  MacLennan83.  MacLennan85ai  to 
implement  some  of  the  tools  that  constitute  a  programming  environment. 

The  structure  of  this  report  is  as  follows:  First  we  discuss  the  accommodation  of  comments  in  the 
abstract  structure  of  the  program.  This  demonstrates  how  documentation  and  nonprogram  text  ran  be 
incorporated  into  the  program  structure.  These  comments  are  used  both  statically  (i.e..  as  commentary 
in  the  source  code)  and  dynamically  (ie..  to  provide  informative  information  at  runtime).  Second  we 
introduce  a  conditional  expression  into  the  language.  This  involves  no  new  ideas,  but  is  essential  if  the 
recursive  functions  introduced  in  Fart  IV  are  to  be  useful. 


Support  for  this  research  was  provided  by  the  Office  of  Naval  Research  under  contract  N 00014-86- WR-24092. 


2.    Comments 

2.1   Requirements 

How  can  we  include  comments  in  our  programs?  In  particular,  how  can  comments  be  incorporated 
into  the  abstract  program  structure?  The  solution  to  this  problem  will  indicate  the  solution  to  a  more 
general  problem,  namely,  how  documentation,  specifications,  explanations,  etc.  can  be  related  to  the 
program  structure. 

Our  solution  here  is  to  define  a  new  relation  'Comment'  that  is  used  to  link  a  comment  to  any  pro- 
gram node.    Its  properties  are: 

•  Comment  (  S .  E) 

S  is  the  comment  on  E 

•  Degree  (Comment,  2) 

•  Function  (Comment,  expr,  string) 

The  following  transcript  is  an  example  of  creating  and  displaying  comments: 

show 

let  X  =    (3+  5) 
[let  Y  =    (64-2) 
(X+(Y-1))  ]  ] 

rem    "Distance" 
show 
j  let  {Distance } 
X  =    (3+5) 
[letY  =    (6-2) 
(X+(Y-1))  ;  J 

Notice  that  the  comment  "Distance''  is  attached  to  the  current  node  (a  let  in  this  case),  and  that  this 
alters  the  formatting  of  that  node.  The  presumption  is  that  the  comment  on  a  let  documents  the  name 
defined  by  that  let.    Next  we  move  to  the  inner  let  and  attach  a  comment  to  it: 
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in 
[let  Y  =    (6-=-2) 
(X+(Y-1))  ] 

rem  "Altitude" 
Comments  can  also  be  attached  to  operator  application  nodes,  as  the  following  illustrate: 

in 

(X+(Y-1)) 
in 
X 
next 

(Y-l) 
rem   'offset" 
root 

let  {Distance } 
X  =    (3+  5) 
let  {Altitude} 
Y  =    (6-2) 
(X+    {offset}(Y-l)   )  ]   ] 

2.2    Editor  Commands 

The  rem  command,  which  attaches  a  comment  to  a  program  node,  is  straight-forward  to  implement: 

*Command(rem).  *Argument(S),  CurrentNode(  E),  -Commentf  —  ,E) 
==>    Comment(S,£) . 

*Command(rem) .  *Argument(  —  ).  CurrentNode(  E) ,  Comment)-  ,E) 
=s>    Display('"node  already  commented") . 

Note  that  we  allow  only  one  comment  to  be  attached  to  a  node.    This  is  a  debatable  restriction,   but   it 
seems  that  permitting  multiple  comments  would  require  some  strategy  for  organizing  them.    This  is  left 


as  an  exercise  for  the  reader. 

We  also  need  a  deletej^m  command  for  uncommenting  a  node: 

*Command(delete_rem) ,  CurrentNodef  E) .  *Comment(—  ,E) 
=s>    Display  ("done"). 

*Command(delete_rem),  CurrentNodef  E).  -Comment)-  .E) 
=>    Display("no  comment") . 

2.3    Unparsing  Comments 

Unfortunately,  with  our  present  organization,  most  of  the  unparsing  rules  must  be  modified  to 
incorporate  comments  into  the  un  parsed  program  representation.  Is  there  a  way  of  unparsing  com- 
ments without  duplicating  all  the  unparsing  rules0    This  is  left  as  an  exercise  for  the  reader. 

First  we  consider  the  rule  for  unparsing  comments  on  operator  applications.  Our  goal  is  that  an 
addition  node  with  a  comment  be  displayed  like  this: 

{S}(X+  Y) 

This  is  easily  accomplished  by  the  rule: 

Appl(£).  Op{N,E),  Left(A\£),  Rightf  ?'.£),  *Image(  U,X),  *Image(  V\  Y),  Comment(S,£) 

=*    Imagef"  {"   '  S   ""}  ("  "  U  'N  *  V  "")  ",  E) 

else  previous  Appl  rule. 

The  only  difference  from   the  uncommented  case   is  the   incorporation  of  the  comment   into  the   image. 
Unparsing  comments  on  Vars  and  Cons  is  done  in  essentially  the  same  way  as  those  on  Appls. 

Next  we  consider  unparsing  comments  on  blocks.    The  goal  is  a  display  of  the  form: 

[let  {5} 
N  =   X 
B 

Again,    all    we    have    to   do    is    provide    an    unparsing   rule    like    the    uncommented    one,    except   that  the 


comment  is  incorporated  in  the  image: 

Block(£).  BndVar(iV,£),  BndValf  X,E) ,  Body(fl.£), 
*Image(  U,X),  *Image(  V,B),  Comment(5,£) 

=>    Image ( 

Tabln  "NL   ""[let  {"   '  S   ""}" 
"Tabln  ANL  "JV  *"  =   "U 

*NL   '  V  ""  ]" 
"TabOut  "TabOut,  E) 

else  previous  rule. 

2.4    Dynamic  Use  of  Comments 

Since  a  comment  on  a  block  presumably  describes  the  purpose  of  the  local  variable,  it  would  be  con- 
venient to  include  this  comment  in  the  dynamic  context,  so  that  it  can  be  displayed  by  the  debugger. 
This  is  accomplished  by  modifying  the  evaluator  so  that  the  comment  on  a  block  is  incorporated  in  the 
context  (by  being  attached  as  a  'Comment"  to  the  context).    The  rule  that  does  this  is: 

Block(£).  BndVar(.V,£),  BndVal(  X.E),  Body(fl,£),  *Value(  V,X,C),  *Avail(£>),  Comment)  5.  E) 
=5.    Context(D),  Binds (  D, N,  V),  Nonlocals(  C,D),  E\&\{B,D),  Commentf  S,D) 

else  previous  rule. 

There  is  no  point  in  making  comments  part  of  the  dynamic  structure  unless  we  are  going  to  make  use 
of  them.  For  example,  we  can  modify  the  debugger  so  that  it  displays  any  comments  attached  to  a 
binding,  so  that  we  will  know  the  purpose  of  the  variable.  Here  is  an  example  transcript  that  makes  use 
of  the  example  program  shown  above: 

context 

Y  =    3    {Altitude} 
out  context 

X  —    8     {Distance } 
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This  modification  of  the  debugger  is  accomplished  by  adding  the  following  rule: 
*Co  mm  an  d(  context) ,  CurrentContext(  C),  Binds(  C,N,  V),  Comment)  S,  C) 

=s>    Display  (W  ""  =    "   "  string-  intj  V]     ""    {"   ~S   ""}",  E) 

else  previous  rule. 

The  reader  should   try  to  think  of  other  possible  runtime  applications  of  comments  and  other  non pro- 
gram information. 

3.    Conditional  Expressions 

3.1    Concrete  and  Abstract  Syntax 

Next  we  introduce  a  conditional  expression  into  our  language.  This  construct  will  be  necessary  for 
effective  use  of  the  recursive  functions  introduced  in  Part  IV.  A  conditional  expression  is  displayed  in 
the  following  format: 

(if  B 
then  T 
else  F  ) 

In  the  context  of  a  larger  program  it  would  look  like  this: 

[let  N  =    (XI) 
(if  (N>0) 
then  1 
else  (Nx(N  -1))  ) 

Note    that  we   will  also   have    to   extend   our  operator  application   syntax    to    include   relational  operators 
('=  '.  '>  ',  etc.):  this  is  left  as  an  exercise  for  the  reader. 

The  abstract  structure  of  conditional  expressions  is  represented  by  the  following  relations: 

•      ConEx(£") 

E  is  a  conditional  expression 


Degree(ConEx,l) . 

.      Cond(B.E) 

B  is  the  condition  of  E 
Function(   Cond,  ConEx,  expr). 

•      Conseq(  T,E) 

T  is  the  consequent  of  E 
Function(  Conseq,  ConEx,  expr). 

.     A\t{F,E) 

F  is  the  alternate  of  E 
Function(   Alt,  ConEx,  expr). 

3.2    Editor  Commands 

It's  necessary  to  incorporate  a  new  command  into  the  editor  so  that  we  can  create  ConEx  nodes. 
The  rule  for  the  'if  command  is  routine: 

*Command(if).  *CurrentNode(£),  *Undef(£),  *Avail(B,  T,F) 

=->    ConEx(£),  Cond(B.E).  Conseq(  T,E),  Mt{F,E), 
Undef(fl),  I'ndeff  T) ,  l'ndef(F).  CurrentNode(  B) . 

The  regularity  of  all  these  node  creation  commands   (if.  let,  var.  etc.)   suggests  that  there  ought  to  be  a 
regular  way  of  handling  them.    This  too  is  left  as  an  exercise  for  the  reader. 

The  editor  must  also  be  augmented  with  rules  for  the  in.  out,  next  and  prev  commands  on  ConEx 
nodes.  The  reader  should  also  consider  how  this  proliferation  of  rules  can  be  avoided.  A  typical  rule  is 
the  in  rule: 

*Command(in).  *Current.\ode(  E) .  ConEx(E).  Cond(B.E) 
=>    CurrentNodel  B) .  Command!  show) . 


3.3  Unparsing 

As  usual  we  have  two  rules:    analysis  and  synthesis.    The  analysis  rule  is: 
*Unparse(£).  ConEx(£),  Cond(B,E),  Conseq(7\£),  AK{  F,E) 

=s>    Unparse(5),  U n parse {T),  U n parse (F). 

The  synthesis  rule  gathers  the  images  of  the  subexpressions  and  assembles  them  into  an  image  for  the 
conditional: 

ConEx(£).  Cond(£.£).  Conseq(  r,£) ,  Alt(F,£),  *Image(  U,  B) .  *Image(  l\  T) .  *Image(  W  ,F) 

=>    Image(  Tabln   "  NL 
"(if"    "  U   "NL   " 
';  then  "   *  V  "NL   " 
"  else"   "  W   -»)»'- 
TabOut  "NL.  E). 

A  rule  for  commented  ConEx  nodes  is  left  as  an  exercise  for  the  reader. 

3.4  Evaluation 

Evaluation  of  the  conditional  node  requires  two  separate  analysis  synthesis  steps.     The  first  analysis 
rule  requests  evaluation  of  the  condition: 

*Eval(£.C).  ConEx(£),  Cond(5,£) 

=>    Eval(5,C). 

When  a  value  is  returned  for  the  condition,  either  the  consequent  or  the  alternate  must  be  evaluated 
(depending  on  whether  or  not  the  condition  was  true)  Thus  the  synthesis  pass  for  the  condition  is 
combined  with  the  analysis  pass  for  either  the  consequent  or  alternate.  Evaluation  of  the  consequent 
when  the  condition  is  true  is  handled  by  this  rule: 

ConEx(£),  Cond( /?.£),  Conseq(  T,E),  "Value)  true.  B,  C) 
=>    Eval(T,C). 


Evaluation  of  the  alternate  is  analogous. 

The  final  synthesis  pass  occurs  when  a  value  arrives  at  either  the  consequent  or  alternate;  this  value 
is  attached  to  the  conditional  itself.    The  case  where  the  value  arrives  at  the  consequent  is  handled  by: 

ConEx(£),  Conseq(7\£),  *Value(  V,T,C) 

=^>    Value(  V,E,C). 
The  alternate  case  is  analogous. 
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APPENDIX  A:    Prototype  Programming  Environment 

The  following  is  a  loadable  input  file  for  the  prototype  programming  environment  described  in  this 
report.  It  is  accepted  by  the  Mc  Arthur  interpreter  [  McArthur84  ] ,  which  differs  in  a  few  details  from 
the  fi  notation  used  in  this  report  (see  j  MacLennan84] ) .  Also  note  that  the  declarations  have  been 
reordered  somewhat  from  that  in  previous  reports  in  this  series;  the  new  order  better  reflects  the 
object-oriented  design.    A  transcript  of  a  test  execution  of  this  environment  is  listed  in  Appendix  B. 


!  PI-3 

! 

!  A  simple  programming  environment  for  an  arithmetic 

!  expression  language,  including  interpreter,  unparser, 

!  syntax  directed  editor  and  debugger. 

! 

!  Features  included  in  the  language: 

!       -  Constants 

!       -  Arithmetic  Operations 

!       -  Statically  Nested  Declarations 

!       -  Comments 

!       -  Conditional  Expressions 


!  PERVASIVE  RELATIONS 

!    Evaluation 

newrelation  {"Eval"}: 

newrelation  {"Check"}: 

newrelation  {"Value"}; 

newrelation  {"Meaning"}: 
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newrelation  {"Explanation"}; 

!    Contexts  and  Bindings 

newrelation  {"Context"}; 
newrelation  {"Binds"}; 
newrelation  {"Nonlocal"}: 
newrelation  {"Looking"}. 

!    Unparsing 

newrelation  {"Unparse"}: 
newrelation  {'Image"}; 
newrelation  {'Template"}; 

!    Comments 

newrelation  {"Comment"}. 

!    Format  Control  Constants 

define  {root.  "NL",  " 

"}; 

define  {root.  'Tabln".  ""}: 
define  {root.  'TabOut",  ""}; 

!    Logical  Constants 

define  {root,  "true",   1}; 
define  {root,  'false".  ()}. 
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!    COMMAND  INTERPRETER 


!    Command  Interpreter  Relations 


newrelation 
newrelation 
newrelation 
newrelation 
newrelation 
newrelation 
newrelation 

newrelation 
newrelation 
newrelation 
newrelation 
newrelation 
newrelation 


"Command"}; 

"Argument"}; 

"Root"}; 

"Undef"}; 

"CurrentNode"}; 

"Current  Con  text"}; 

"SuspendedEval"}; 

"Break"}; 
"EvalPending"}; 
"ShowPending"}; 
"CommandPending"}; 
"Create  Root"}; 
"Create  Con  text"}. 


define  {root,  "ComlntRules",   <  < 

!    evaluate  Command 

if  *Command(  "evaluate") .  CurrentNode(  E) ,  CurrentContext(C) 
->    Eval(E.C),  EvalPending(  E) ,  CommandPending(E); 

if  *Value(V,E,C),  *EvalPending(E),  *CommandPending(-  ) 
->    displayn  {V}; 

!     Error  Handler 

if  *Break(M,E.C),  *CommandPending(  -  ),  *EvalPending(  R) .  *SuspendedEval(  -  ) 


- 1 .",- 


->    displayn{M},  SuspendedEval(R) ,  CurrentNode(E),  CurrentContext(C) ; 

!    resume  Command 

if  *Command(  "resume") ,  SuspendedEval(Nil) 
->    displayn{"no  evaluation  in  progress"} 

else  if  *Comm and (  "resume") ,  CurrentNode(E),  CurrentContext(C) ,  *SuspendedEval(R) 
->    Eval(E,C),  EvalPending(R),  SuspendedEval(Nil) ; 

!    return  Command 

if  *Command(  'Val") .  *Argument(  V) ,  CurrentNode(E) 
->    Value (V.E.C); 

!    show  Command 

if  *Command(  "show") ,  CurrentNode(E) 

->    Unparse(E).  ShowPendingf  E) ,  CommandPending(  E); 

if  *Image(S,E).  *ShowPending(E) ,  *CommandPending(-  ) 
->    displayn{S}; 

!    abort  Command 

if  Command)  "abort").  *Eval(E,C)  ->    ; 

if  Command!  "abort").  *Value(V,E,C)  ->    ; 

if  Commandf  "abort"),  *Check(  V.E.C)  ->    ; 

if  Command!  "abort").  *Nonlocal(C,D)  ->    ; 

if  Command!  "abort").  'Binds  (  D.N.  V)  -        ; 

if  *Comm  and (  "abort") . 


"Eval(E,C),  -Value(V,E,C),  "Nonlocal(C,D),  "Binds(D,N,V), 
*SuspendedEval(—  ),  *CurrentContext(—  ) 
->    CurrentContext(Nil) ,  SuspendedEval(Nil) ,  displayn{"aborted"} 

!    done  Command 

if  *Command(  "done")    ->     displavTil'PI  system  stopped"}; 
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!    Syntax  Directed  Editing 

if  *Command(  "delete"),  CurrentNode(E),  Undef(E) 
->    displaynf  "already  deleted") ; 

!    begin  Command 

if  *Command(  "begin"),  *CurrentNode(Q) 

->     CreateRoot(newobj{}) .  CommandPending(Nil) ; 

if  *CreateRoot(  E) .  *CommandPending(—  ) 
->    Root(E).  Undef(E).  CurrentNode(E); 

!    root  Command 

if  *Command('Toot"),  *CurrentNode(Q).  Root(E) 
->    CurrentNode(E) ,  Command)  "show") ; 

!     Debugging  Commands 

!    context  Command 

if  *Command(  "context").  CurrentContext(C) ,  Binds(C,N,V),  Comment(S,C) 
->    displaynf  N  +    "  =    "  +    int_strjVj   +    "    {"  +    S  +    "}"  ) 

else  if  *Comm  and  ("context"),  CurrentContext(C) ,  Binds(C,N,V) 
->    displayn(  N  -+    "=    "+    int_str[V]   ) 

else  if  *Command(  "context") 
-   •    displayn("no  bindings"): 

!    out  context  Command 

if  *Command("out  jrontext").  *CurrentContext(D  ) ,  Nonlocal(C,D  ) 
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->    CurrentContext(C) ,  Command)  "context") 

else  if  "Command)  "out  jcontext") 
->    displayn  (  "at  outermost  level") ; 

!    in_context  Command 

if  *Command(  "in_context") ,  *CurrentContext(C) ,  Nonlocal(C,D| 
->    CurrentContext(D  ) ,  Command)  "context") 

else  if  *Command(  "in_context") 
->    displayn)  "at  innermost  level"); 

!    alter  Command 

if  *Command(  "alter"),  *Argument(U), 
CurrentContext(C).  *Knds(C,N,V) 
->    Binds)  C.N.U  ) .  Command)  "context") 

else  if    'Command) "alter") ,  *Argument(Q) 

->    displayn  ("no  binding"); 

>>}. 

act  {ComlntRules}. 


!    COMMENTS 

define  {root,  "RemRules",  <  < 

!    rem  Command 

if  *Command("rem"),  *Argument(S) ,  CurrentNode(E),  "Commentf-  ,E) 
->    Comment(S.E) ; 

if  *Command("rem"),  *Argument(-  ),  CurrentNode(E) ,  Comment)-  ,E) 
->    displayn)  "node  already  commented") ; 

!    delete  _rem  Command 

if  *Command(  "delete_rem") ,  CurrentNode(E) ,  'Comment)-  ,E) 
->    displayn("done") ; 

if  *Command("delete_rem") ,  CurrentNode)  E) ,   "Comment)—  ,E) 

->    displayn)  "no  comment"); 

>>}■ 

act  {RemRules}. 

!    INCOMPLETE  PROGRAM 

!    Tables 

Explanation  ("incomplete  program",  ["error",  0] ) . 

define  {root,  "IncomProgRules",  <  < 

!    Evaluation 

if  *Eval(E,C),  Undef(E),  "CurrentNode (Q) 

->    Break) 'Incomplete".  E.  C); 
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!    Un parsing 

if  *Unparse(E),  Undef(E) 
->    Image  ( "<  expr>  ",  E); 

act  {IncomProgRules}. 
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!    CONSTANT  NODES 

!    Relations 

newrelation  {"Con"}; 
newrelation  {"Litval"}. 

!    Functions 

fn  Id  [xi:  x. 

'    Tables 

Meaning  (Id.  'lit"). 
Template  (int_str.  'lit"). 

define  {root.  "ConRules",  <  < 

!    Evaluation 

if  *Eval(e,c),  Con(e).  Litval(v.e),  Meaning(f,  "lit") 
->    Value (f  |  vj ,  e.  c) ; 

!    Unparsing 

if  *Unparse(e) ,  Con(e),  Litval(v,e),  Template(f,  "lit"),  Comment(s,e) 
-        Image(  f[v]    +    "  {"  +    s  4-    "}",  e) 

else  if  *Unparse(e) ,  Con(e),  Litval(v.e).  Template(f.  'lit") 
Image(f  v   .  e) ; 

!    if  Command 

if  *Command("#")1  *Argument(  V) .  IsIntjV  ,  CurrentNode(E),  *Undef(E) 

->    Con(E).  Litval(V.E); 


if  *Co  mm  and  ("#"),  *Argument(  V) ,  CurrentNode(E) ,  'Undef(E) 
->    displayn( "defined  node"); 

!    delete  Command 

if  *Command("delete"),  CurrentNode(E),  *Con(E),  *Litval(V,E) 
->    Undef(E),  Command)  "show") ; 

act  {ConRules}. 
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!    VARIABLE  NODES 

!    Relations 

newrelation  {"Var"}; 
newrelation  {'Ident"}. 

define  {root,  "VarRules",  <  < 

!    Evaluation 

if  *Eval(E,C),  Var(E).  Ident(N.E) 
->    Looking(N,C,E,C): 

if  *Looking(N,C.E,D),  Binds(C,N.V) 
->    Value(V.E.D) 

else  if  *Looking(  N,C,E.D  ) ,  Nonlocal(Cprime,C) 
->    Looking(N,Cprime,E,D ) 

else  if  *Looking(N,C,E.D).  *CurrentNode(Q) .  *CurrentContext(Q) 

-  >    Break(  "Unbound:  "  -    N,  E.  D): 

!    Unparsing 

if  *Unparse(E).  Var(E),  Ident(N.E).  Comment(S,E) 

-  •    Image(   N  -    "  {"  +    S  -    "}",  E) 

else  if  *l'nparse(E),  Var(E).  Ident(N.E) 

-  ■    Image(N,E); 

'    var  Command 

if  *Command("var"),  'Argument  (N) .  CurrentNode(E),  *Undef(E) 

-  •    Var(E),  Ident(N,E); 


!    delete  Command 

if  *Command(  "delete").  CurrentNode(E) ,  *Var(E),  *Ident(N,E) 
->    Undef(E),  Command("show"); 

act  {VarRules}. 
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!    APPLICATION  NODES 

!    Relations 

newrelation  {"Appl"}; 
newrelation  {'Dp"}; 
newrelation  {"Left"}; 
newrelation  {"Right"}; 

newrelation  {"Create Appl"}. 

!    Evaluation  Functions 

fn  Sum  !  x,yj :  x  +    y: 
fn  Dif    x.yj :  x  -  y; 
fn  Product    x,yj:  x  *  y; 
fn  Quotient  j  x,y] : 

if  y  =    0  ->      "error",    1 

else  x  /  y; 
fn  Equal  j  x, y ] :    if  x  =    y  ->    true  else  false; 

fn  IsErrorcode  jwj: 

if  TsListlwl  I  w  =   Nil  ->   Nil 


!     I  nparsing  Functions 


M\  It. 


fn  upSum   jx,yj :  "("  +    x  +    "  +    "  +    y  + 
fn  upDif    x,y):  "( "  +    x  4    "  -  "  -+    y  +    ") ": 
fn  upProd  jx,y]:  "(M4    x  +    "x  "  *    y  +    ") "; 
fn  upQuot  jx,y):  "("+    x+    "/  "  +    y+    ")"; 

fn   upEqua  |x,yj:  "( "  +    x+    "=    "+    y^    »') ". 
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!    Evaluation  Tables 

Meaning  (Sum,  "•+  ") ; 
Meaning  (Dif.  "-"); 
Meaning  (Product,  V); 
Meaning  (Quotient,  "/"); 
Meaning  (Equal.  '  —  ") . 

!    Unparsing  Tables 


Template 
Template 
Template 
Template 
Template 


upSum.  «+  "): 
upDif,  "-"); 
upProd.  "x"); 
upQuot,  "/"); 
upEqua,  '  —  ") 


!    Other  Tables 

Explanation  ("division  by  zero",  ["error",  lj). 

define  {root.  "ApplRules",  <  < 

!    Evaluation 

if  *Eval(e,c),  Appl(e),  Left(x.e),  Right(y,e) 
-  -    Eval(x.c),  Eval(y.c); 

if  *Value(u,x,c) ,  *Value(v,y,c) , 

Appl(e).  Op(n,e),  Left(x,e),  Right(y,e),  Meaningff,  a] 
->    Check(fi  u,vj ,  e.  c) ; 

if  *Check(w.  e.  c).  ~IsErrorcode|  wj 
Value (w,  e.  r) ; 
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if  *Check(w,  e,  c),  IsErrorcode[  w] ,  Explanation^,  w),  *CurrentNode(q) 
-  >    Bre  ak  ( s ,  e ,  c ) ; 

!    Unparsing 

if  *Unparse(e) ,  Appl(e),  Left(x,e),  Right(y,e) 
->    Unparse(x),  Unparse(y); 

!    Unparsing  Comments  on  Applications 

if  Appl(E).  Op(N,E).  Left(X,E).  Right(Y,E). 
*Image(U.X),  *Image(Y.Y),  Comment(S.E) 
->    Image(  "  {"  +   S  +"}("  +   U  +  N  +  V  +    ")  ".  E) 

3 

else  if  *Image(u,x),  *Image(v,y), 

Appl(e),  Op(n.e),  Left(x,e),  Right(y,e),  Template(f,  n) 
->    Image(f  u,v] ,  e) ; 

!    +  ,  -,  x  ,  /,  =    Commands 

if  *Command(op).  member  jop,  ["+  ",  "-"    "x",  "/",  "=  "]], 

*CurrentNode(E),  *l"ndef(E) 
->    CommandPending(E) ,  Create  Appl(op,  E,  newobjj}.  newobj{}); 

if  *CreateAppl(op,E,X.  Y).  *Comm  andPending(  E) 
->    {Appl(E).  Op(op,E),  Left(X,E),  Right(Y.E), 

Undef(X),  Undef(Y),  CurrentNode(X) ; 

Command)  "show")  }; 

!    delete  Command 

if  *Command(  "delete") ,  CurrentNodef  F]) . 
*Appl(E),  *Op(N,E),  *Left(X.E),  Right(Y,E) 
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->    Undef(E).  Command("show"); 

!    in  Command 

if  *Command("in")1  *CurrentNode(E),  Left(X.E) 
->    CurrentNode(X),  Command)  "show") ; 

!    out  Command 

if  *Command("out"),  *CurrentNode(X) ,  Left(X,E) 
->    CurrentNode)  E) ,  Command)  "show"); 

if  *Command("out"),  *CurrentNode(  Y) ,  Right(Y.E) 
->    CurrentNode(E) ,  Command)  "show") ; 

!    next  Command 

if  *Command("next").  *CurrentNode(X) ,  Left(X,E),  Right(Y.E) 
->    CurrentNode)  Y) .  Command)  "show") ; 

!    prev  Com  mand 

if  *Command("prev").  *CurrentNode(Y),  Right(Y,E),  Left(X,E) 

->    CurrentNode(X) .  Command)  'Ishow") ; 

>>}■ 

act{A  pplRules}. 


-27- 


!    BLOCK 

!    Relations 

newrelation  {"Block"}; 

newrelation  {"BndVar"}; 

newrelation  {"BndVal"}; 

newrelation  {"Body"}; 

newrelation  {"CreateLet"}. 

define  {root.  "BlockRules",  <  < 

!    Evaluation 

if  *Eval(E,C),  Block(  E).  BndVal(X.E) 
->    Eval(X,C); 

if  Block(E),  BndVar(N.E).  BndVal(X,E),  Body(B,E), 
*Value(V.X.C),  Comment(S,E) 
->    CreateContext  (newobj{},  N,  V,  C,  B,  S) 

e-lse  if  Block(E).  BndVar(N.E),  BndVal(X.E) ,  Body(B,E) , 
*Value(V,X.C) 
->    CreateContext  (newobj{},  N,  V,  C,  B) ; 

if  *CreateContext(D.N.V,C\B,S)  ->    CreateContext(D,N,V,C,B),  Comment(S,D) ; 

if  *CreateContext(D.N,V,C.B) 

->    Context(D).  Binds(D.N.V),  Nonlocal(C.D),  Eval(B.D); 

if  Block  (E).  Body(B.E). 

*Value(V,B,D),  *Nonlocal(C,D),  *Binds(D,N, W),  *Context(D) 
-        Value(V,E,C); 
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!    Unparsing 

if  *Unparse(E).  Block(E),  BndVal(X,E),  Body(B,E) 
->    Unparse(X),  Unparse(B); 

!    Unparsing  comments  on  blocks 

if  Block(E),  BndVar(N,E),  BndVal(X,E),  Body(B.E), 
*Image(U,X),  *Image(V,B),  Comment(S,E) 
->    Imagef 

Tabln  +   NL  4-    'Met  {"  +   S  +    "}" 
+    Tabln  +    NL  +   N  +   "=    "+   U 
+   NL  -t-   V  4-    "  ] " 
+   TabOut  +   TabOut,  E) 

else  if  Block (E),  BndVar(N.E),  BndVal(X,E),  Body(B,E), 
*Image(U,X),  *Ixnage(V.B) 
->    Image(  Tabln  +    NL 

+    "|  let    "  +    N  -+    "  =    "  +    U 
+    Tabln  +   NL  +    V  +    "]" 
+    TabOut  +    TabOut. 

E): 

!    let  Command 

if  *Command("let"),  *Argument(  N) ,  *CurrentNode(E),  *Undef(E) 
->    CommandPending(E) ,  CreateLet(N,  E,  newobj{},  newobjj}); 

if  *CreateLet  (N,  E.  X.  B) ,  *CommandPending(  E) 

-       {Block(E),  BndVar(N,E).  BndVal(X,E),  Body(B.E). 

Tndef(X).  Undef(B).  CurrentNodef  X) ; 

Com  mand(  "show") }; 
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!    in  Command 

if  *Command("in"),  *CurrentNode(E) ,  BndVal(X,E) 
->    CurrentNode(X) ,  Command)  "show") ; 

!    out  Command 

if  *Command("out"),  *CurrentNode(X),  BndVal(X,E) 
->    CurrentNode(  E),  Command)  '%how") ; 

if  "Command)  "out").  *CurrentNode(B) ,  Body(B.E) 
->    CurrentNode(  E) .  Command)  "show") : 

'    next  Command 

if  *Co  mm  and  ("next").  *CurrentNode(X), 
BndVal(X,E),Body(B,E) 
->    CurrentNode(  B) .  Command)  "show") ; 

!    prev  Command 

if  *Command('prev"),  *CurrentNode(B) , 
Body(B.E),  BndVal(X,E) 
->    CurrentNode(  X) .  Command)  'fshow") : 
>>}. 

act  {Block Rules}. 


-30- 


!    CONDITIONAL  EXPRESSION  NODES 

!    Relations 

newrelation  {"ConEx"}; 

newrelation  {"Cond"}; 

newrelation  {"Conseq"}; 

newrelation  {"Alt"}; 

newrelation  {"Create ConEx"}. 

define  {root.  "ConExRules".  <  < 

!    Evaluation 

if  *Eval(E,C),  ConEx(E).  Cond(B.E) 
->    Eval(B,C); 

if  ConEx(E),  Cond(B.E).  Conseq(T,E),  *Value(true,B,C) 
->    Eval(T,C); 

if  ConEx(E),  Cond(B,E):  Alt(F.E),  *Value(false,B-C) 
->    Eval(F,C); 

if  ConEx(E),  Conseq(T,E),  *Value(V,T,C) 
->    Value(V.E,C); 

if  ConEx(E),  Alt(F,E),  *Value( V.F.C) 
->    Value(V,E,C); 

!     Un  parsing 

if  *Unparse(E),  ConEx(E),  Cond(B,E).  Conseq(T.E).  Alt(F.E) 
->    U n parse  (B).  U n parse  (T).  U  n parse  (  F) : 
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if  ConEx(E),  Cond(B,E),  Conseq(T,E),  Alt(F,E), 

*Image(U,B),  *Image(  V,T) ,  *Image(W,F) 
->    Image(  Tabln  +    NL  + 

"( If  »  +    U  +   NL  + 

"then  "  +    V  +    NL  + 

"else  "+    W  +    ")"  + 

TabOut  +   NL,  E); 

!    Editing 

!     if  Comm  and 

if  *Command("if").  *CurrentNode(E),  *Undef(E) 

->     CommandPending(E) ,  CreateConEx(E,  newobj{},  newobj{},  newobj{}): 

if  *CreateConEx(E,B,T,F),  *CommandPending(  E) 
->    {ConEx(E),  Cond(B.E).  Conseq(T.E).  Alt(F.E). 
Undef(B).  Undef(T).  Undef(F),  CurrentNode(B); 

Command)  "show")  }; 

!    in  Command 

if  *Command("in").  *CurrentNode(E).  ConEx(E).  Cond(B.E) 
->    CurrentNode)  B) ,  Command)  "show") ; 

!    out  Command 

if  *Command("out").  *CurrentNode(B),  Cond(B.E),  ConEx(E) 
->    CurrentNode(E).  Command)  "show") ; 

if  *Command("out"),  *CurrentNode(T) ,  Conseq(T,E).  ConEx(E) 
->    CurrentNode(E).  Command)  "show") ; 


if  *Command("out"),  *CurrentNode(F) ,  Alt(F,E),  ConEx(E) 
->    CurrentNode(E),  Command)  "show") ; 

!    next  Command 

if  *Command("next"),  *CurrentNode(B),  Cond(B,E),  Conseq(T,E) 
->    CurrentNode(T),  Command)  "show") ; 

if  *Command("next"),  *CurrentNode(T) ,  Conseq(T,E),  Alt(F,E) 
->    CurrentNode(F),  Command)  "show"); 

!    prev  Command 

if  *Command("prev"),  *CurrentNode(F) ,  Alt(F.E),  Conseq(T.E) 
->    CurrentNode(T),  Command)  '^show") ; 

if  *Command("prev"),  *CurrentNode(T) ,  Conseq(T,E),  Cond(B,E) 

->    CurrentNode(B) ,  Command)  "show") ; 

>>}• 

act  {ConExRules}. 


!    TEST  DRIVER 

!    Relations 

newrelation  {"Script"}; 
newrelation  {'Test"}. 

!    Monadic  Command  List 

define  {root,  "MonadicCommands", 
!"#",  "val",  "let".  'Var",  "alter".  '¥em"j}. 

define  {root.  "TestRules",  <  < 

!    Script  Sequencer 

if  *Scnpt(  A, Nil),   "Command)-  ).  "CommandPending)  —  ) 
->    A( 'Script  completed") 

else  if  *Script(  A,L) ,  "Command)-  ),  "CommandPending)-  ). 

member    firstlL'.  MonadicCommandsl 
->    {  display  {".'..  "}; 

display  {first  [rest  [L]]}; 

displayn  {"  "  +    first  [L] }; 

Command)  first j  L] ) ,  Argument)  firs t| res t[  LJ  ] ); 

Script)  A,  restirestlL]  ] )   } 

else  if  *Script(A,L), 

"Command)—  ).  "CommandPending)  —  ) 
-  >    {  displayn  {"  ...  "  +    first  [L    }: 

Command)  first!  L' ) ; 

Script)  A ,  rest  L   )    }; 
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!    Test  Scripts 

if  *Test(A,l)  ->    { 
Script{[ 
"begin'\'¥em","Distance,',''let"."X","+  7<#",3,  "next",  "#",5,  "but",  "next", 
"rem",  "Altitude",  'let",  "Y","/",  "#",6,  "next  ","#",2,  "out",  "next", 
"+  ",  "var""X",  "next",  "rem",  "offset", "/",  "var","Y",  "next",  "#",1, 
"root",  "evaluate"]}; 
A('Test  done"); 

}; 

if  *Test(A,2)  ->    { 
Script{]  "in",  "next", "in"  "next",  "in", "next"  "in  ",  "next", 

"delete  ".  "rem",  "error' ","#",0.  "root",  "evaluate"!}; 
A  ('Test  done"); 

}; 

if  *Test(A,3)  ->    { 
Scriptj  |  "context".  "out_con  text  ""alter",  7, 

"in_context", "out  jon text", "out_con text", "abort", "show"!  }; 
A('Te   l  done"); 


if  *Test(A,4)  ->    { 
Script{|  "delete",  "if", "=  ",'Var",  "Y","next","#",0,  "out", "next", 
"#",1, "next",  "-",Var","X",,,next","#",l,'Voot",  "evaluate"]}; 
A  ('Test  done"); 

I 


act  {TestRules}. 

!    Initialize  Data  Structures 

CurrentNode(Nil). 
CurrentContext(Nil) . 
SuspendedEval(Nil) . 
displayn{"PI-3  System  loaded"}. 
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APPENDIX  B:    Transcript  of  n    Session 

The  following  is  a  transcript  of  an  fi  session  illustrating  the  operation  of  the  prototype  programming 
environment  shown  in  Appendix  A.  The  assertion  'Script  {testscript}'  causes  the  commands  in 
testscript  to  be  executed  in  order.  The  nth  testscript  is  executed  by  'Test{n}\  Each  command  is 
printed  on  a  separate  line,  followed  by  whatever  output  is  generated  by  the  programming  environment. 
This  transcript  was  produced  by  the  McArthur  interpreter  !  McArthur84] . 

%  omega 

OMEGA-1      11/30/84 

Use  Cntl-D  or  exit{}  to  quit. 

For  help,  enter  help{,r?"}. 

To  report  a  bug,  enter  Bugs{}. 
newrelation  rule  activated. 

>  do{"PI3.rul"}. 
PI-3  System  loaded 
OK 

>  {Test{l};  Test {2};  Test {3};  Test{4};  Scriptjj  "done"]  }}. 
...  begin 

...  Distance  rem 
...  X  let 

<  expr> 
...  + 

<  expr> 
...  3  # 
...  next 

<  expr> 
...5  # 
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.  out 

(2 

;  +  5) 

.  next 

< 

expr> 

.  Altitude  rem 

.  Y  let 

< 

expr> 

•/ 

< 

expr> 

.6  # 

.  next 

< 

expr> 

•2  # 

. .  out 


(6 

/2) 

.  next 

< 

expr> 

.  + 

< 

expr> 

.  X  var 

...  next 
•    expr> 
...  offset  rem 

<  expr> 
...  Y  var 
...  next 

<  expr 
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...  1  # 

...  root 
[let  {Distance} 

X  =    (3  +    5) 

|  let  {Altitude} 
Y  =    (6  /  2) 
(X-     {offset}  (Y/l) 
...  evaluate 
11 

...  in 
(3  +    5) 

...  next 
[let  {Altitude} 

Y  -    (6  /  2) 

(X  +     {offset}  (Y/l)  ) 

...  in 
(6  /  2) 

...  next 
(X  +   -{offset}  (Y/l)   ) 

...  in 
X 

...  next 

{offset}  (Y/l) 


...  next 
1 
...  delete 
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<  expr> 
...  error!  rem 
...  0# 
...  root 

[let  {Distance} 
X  =    (3  +    5) 
[let  {Altitude} 
Y  =    (6/2) 

(X  +     {offset}  (Y/0  {error!}) 
...  evaluate 
division  by  zero 
...  context 

Y  =    3    {Altitude} 
...  out_context 

X  =    8    {Distance} 

...  7  alter 
X  =    7    {Distance } 

...  in_context 

Y  =    3    {Altitude} 
...  out_context 

X  =    7    {Distance } 

...  out_context 
no  bindings 

...  abort 
aborted 

...  show 

{offset}  (Y/0  {error!}) 

...  delete 
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<  expr> 
...  if 

<  expr> 

<  expr> 
...  Y  var 

...  next 

<  expr> 
...  0# 
...  out 

(Y  =  0) 
...  next 

<  expr> 
...  1  # 
...  next 

<  expr> 

<  expr> 
...  X  var 
...  next 

<  expr> 

...  1  # 
...  root 

[  let  {Distance} 

X  =    (3  +    5) 

let  {Altitude 

Y  =    (6/2) 

(X  - 
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(If  (Y=  0) 

then  1 

else   (X  -  1)   ) 

)]   1 
...  evaluate 

15 

...  done 

PI  system  stopped 
OK 
>    exit{}. 


Goodbye. 
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